home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 9.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 31 3a 31 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:10 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 6d 6f 64 75 6c 61 | 32 2e 65 6c 0a 3b 3b 3b |s/modula|2.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))). |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 6d 6f 64 75 6c 61 | (error |"`modula|
|000001f0| 32 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |2.el' wa|s compil|
|00000200| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 32 30 22 |ed for E|macs 20"|
|00000210| 29 29 0a 0a 28 6f 72 20 | 28 62 6f 75 6e 64 70 20 |))..(or |(boundp |
|00000220| 27 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 |'current|-load-li|
|00000230| 73 74 29 20 28 73 65 74 | 71 20 63 75 72 72 65 6e |st) (set|q curren|
|00000240| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 6e 69 6c 29 |t-load-l|ist nil)|
|00000250| 29 0a 0a 0a 23 40 34 32 | 20 53 79 6e 74 61 78 20 |)...#@42| Syntax |
|00000260| 74 61 62 6c 65 20 69 6e | 20 75 73 65 20 69 6e 20 |table in| use in |
|00000270| 4d 6f 64 75 6c 61 2d 32 | 20 62 75 66 66 65 72 73 |Modula-2| buffers|
|00000280| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6d 32 2d 6d 6f |...(defv|ar m2-mo|
|00000290| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|000002a0| 6e 69 6c 20 28 23 24 20 | 2e 20 36 30 31 29 29 0a |nil (#$ |. 601)).|
|000002b0| 23 40 33 38 20 43 6f 6d | 6d 61 6e 64 20 74 6f 20 |#@38 Com|mand to |
|000002c0| 63 6f 6d 70 69 6c 65 20 | 4d 6f 64 75 6c 61 2d 32 |compile |Modula-2|
|000002d0| 20 70 72 6f 67 72 61 6d | 73 1f 0a 28 64 65 66 76 | program|s..(defv|
|000002e0| 61 72 20 6d 32 2d 63 6f | 6d 70 69 6c 65 2d 63 6f |ar m2-co|mpile-co|
|000002f0| 6d 6d 61 6e 64 20 22 6d | 32 63 22 20 28 23 24 20 |mmand "m|2c" (#$ |
|00000300| 2e 20 36 39 33 29 29 0a | 23 40 33 35 20 43 6f 6d |. 693)).|#@35 Com|
|00000310| 6d 61 6e 64 20 74 6f 20 | 6c 69 6e 6b 20 4d 6f 64 |mand to |link Mod|
|00000320| 75 6c 61 2d 32 20 70 72 | 6f 67 72 61 6d 73 1f 0a |ula-2 pr|ograms..|
|00000330| 28 64 65 66 76 61 72 20 | 6d 32 2d 6c 69 6e 6b 2d |(defvar |m2-link-|
|00000340| 63 6f 6d 6d 61 6e 64 20 | 22 6d 32 6c 22 20 28 23 |command |"m2l" (#|
|00000350| 24 20 2e 20 37 38 31 29 | 29 0a 23 40 32 35 20 4e |$ . 781)|).#@25 N|
|00000360| 61 6d 65 20 6f 66 20 74 | 68 65 20 65 78 65 63 75 |ame of t|he execu|
|00000370| 74 61 62 6c 65 2e 1f 0a | 28 64 65 66 76 61 72 20 |table...|(defvar |
|00000380| 6d 32 2d 6c 69 6e 6b 2d | 6e 61 6d 65 20 6e 69 6c |m2-link-|name nil|
|00000390| 20 28 23 24 20 2e 20 38 | 36 33 29 29 0a 28 62 79 | (#$ . 8|63)).(by|
|000003a0| 74 65 2d 63 6f 64 65 20 | 22 08 ac c8 c1 20 1a c3 |te-code |".... ..|
|000003b0| c4 c5 5c 6e 23 88 c3 c6 | c7 5c 6e 23 88 c3 c8 c9 |..\n#...|.\n#....|
|000003c0| 5c 6e 23 88 c3 ca cb 5c | 6e 23 88 c3 cc cd 5c 6e |\n#....\|n#....\n|
|000003d0| 23 88 c3 ce cd 5c 6e 23 | 88 c3 cf cd 5c 6e 23 88 |#....\n#|....\n#.|
|000003e0| c3 d0 cd 5c 6e 23 88 c3 | d1 cd 5c 6e 23 88 c3 d2 |...\n#..|..\n#...|
|000003f0| cd 5c 6e 23 88 c3 d3 d4 | 5c 6e 23 88 5c 6e 10 29 |.\n#....|\n#.\n.)|
|00000400| c1 87 22 20 5b 6d 32 2d | 6d 6f 64 65 2d 73 79 6e |.." [m2-|mode-syn|
|00000410| 74 61 78 2d 74 61 62 6c | 65 20 6d 61 6b 65 2d 73 |tax-tabl|e make-s|
|00000420| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 74 61 62 6c |yntax-ta|ble tabl|
|00000430| 65 20 6d 6f 64 69 66 79 | 2d 73 79 6e 74 61 78 2d |e modify|-syntax-|
|00000440| 65 6e 74 72 79 20 3f 5c | 5c 20 22 5c 5c 22 20 3f |entry ?\|\ "\\" ?|
|00000450| 5c 28 20 22 2e 20 31 22 | 20 3f 5c 29 20 22 2e 20 |\( ". 1"| ?\) ". |
|00000460| 34 22 20 3f 5c 2a 20 22 | 2e 20 32 33 22 20 3f 5c |4" ?\* "|. 23" ?\|
|00000470| 2b 20 22 2e 22 20 3f 5c | 2d 20 3f 5c 3d 20 3f 5c |+ "." ?\|- ?\= ?\|
|00000480| 25 20 3f 5c 3c 20 3f 5c | 3e 20 3f 5c 27 20 22 5c |% ?\< ?\|> ?\' "\|
|00000490| 22 22 5d 20 34 29 0a 23 | 40 33 31 20 4b 65 79 6d |""] 4).#|@31 Keym|
|000004a0| 61 70 20 75 73 65 64 20 | 69 6e 20 4d 6f 64 75 6c |ap used |in Modul|
|000004b0| 61 2d 32 20 6d 6f 64 65 | 2e 1f 0a 28 64 65 66 76 |a-2 mode|...(defv|
|000004c0| 61 72 20 6d 32 2d 6d 6f | 64 65 2d 6d 61 70 20 6e |ar m2-mo|de-map n|
|000004d0| 69 6c 20 28 23 24 20 2e | 20 31 31 38 30 29 29 0a |il (#$ .| 1180)).|
|000004e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 84 b8 00 |(byte-co|de "....|
|000004f0| c1 20 1a c3 5c 6e c4 c5 | 23 88 c3 5c 6e c6 c7 23 |. ..\n..|#..\n..#|
|00000500| 88 c3 5c 6e c8 c9 23 88 | c3 5c 6e ca cb 23 88 c3 |..\n..#.|.\n..#..|
|00000510| 5c 6e cc cd 23 88 c3 5c | 6e ce cf 23 88 c3 5c 6e |\n..#..\|n..#..\n|
|00000520| d0 d1 23 88 c3 5c 6e d2 | d3 23 88 c3 5c 6e d4 d5 |..#..\n.|.#..\n..|
|00000530| 23 88 c3 5c 6e d6 d7 23 | 88 c3 5c 6e d8 d9 23 88 |#..\n..#|..\n..#.|
|00000540| c3 5c 6e da db 23 88 c3 | 5c 6e dc dd 23 88 c3 5c |.\n..#..|\n..#..\|
|00000550| 6e de df 23 88 c3 5c 6e | e0 e1 23 88 c3 5c 6e e2 |n..#..\n|..#..\n.|
|00000560| e3 23 88 c3 5c 6e e4 e5 | 23 88 c3 5c 6e e6 e7 23 |.#..\n..|#..\n..#|
|00000570| 88 c3 5c 6e e8 e9 23 88 | c3 5c 6e ea eb 23 88 c3 |..\n..#.|.\n..#..|
|00000580| 5c 6e ec ed 23 88 c3 5c | 6e ee ef 23 88 c3 5c 6e |\n..#..\|n..#..\n|
|00000590| f0 f1 23 88 c3 5c 6e f2 | f3 23 88 c3 5c 6e f4 f5 |..#..\n.|.#..\n..|
|000005a0| 23 88 c3 5c 6e f6 f7 23 | 88 c3 5c 6e f8 f9 23 88 |#..\n..#|..\n..#.|
|000005b0| c3 5c 6e fa fb 23 88 c3 | 5c 6e fc fd 23 88 5c 6e |.\n..#..|\n..#.\n|
|000005c0| 10 29 c1 87 22 20 5b 6d | 32 2d 6d 6f 64 65 2d 6d |.).." [m|2-mode-m|
|000005d0| 61 70 20 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |ap make-|sparse-k|
|000005e0| 65 79 6d 61 70 20 6d 61 | 70 20 64 65 66 69 6e 65 |eymap ma|p define|
|000005f0| 2d 6b 65 79 20 22 09 22 | 20 6d 32 2d 74 61 62 20 |-key "."| m2-tab |
|00000600| 22 03 62 22 20 6d 32 2d | 62 65 67 69 6e 20 22 03 |".b" m2-|begin ".|
|00000610| 63 22 20 6d 32 2d 63 61 | 73 65 20 22 03 64 22 20 |c" m2-ca|se ".d" |
|00000620| 6d 32 2d 64 65 66 69 6e | 69 74 69 6f 6e 20 22 03 |m2-defin|ition ".|
|00000630| 65 22 20 6d 32 2d 65 6c | 73 65 20 22 03 66 22 20 |e" m2-el|se ".f" |
|00000640| 6d 32 2d 66 6f 72 20 22 | 03 68 22 20 6d 32 2d 68 |m2-for "|.h" m2-h|
|00000650| 65 61 64 65 72 20 22 03 | 69 22 20 6d 32 2d 69 66 |eader ".|i" m2-if|
|00000660| 20 22 03 6d 22 20 6d 32 | 2d 6d 6f 64 75 6c 65 20 | ".m" m2|-module |
|00000670| 22 03 6c 22 20 6d 32 2d | 6c 6f 6f 70 20 22 03 6f |".l" m2-|loop ".o|
|00000680| 22 20 6d 32 2d 6f 72 20 | 22 03 70 22 20 6d 32 2d |" m2-or |".p" m2-|
|00000690| 70 72 6f 63 65 64 75 72 | 65 20 22 03 17 22 20 6d |procedur|e ".." m|
|000006a0| 32 2d 77 69 74 68 20 22 | 03 72 22 20 6d 32 2d 72 |2-with "|.r" m2-r|
|000006b0| 65 63 6f 72 64 20 22 03 | 73 22 20 6d 32 2d 73 74 |ecord ".|s" m2-st|
|000006c0| 64 69 6f 20 22 03 74 22 | 20 6d 32 2d 74 79 70 65 |dio ".t"| m2-type|
|000006d0| 20 22 03 75 22 20 6d 32 | 2d 75 6e 74 69 6c 20 22 | ".u" m2|-until "|
|000006e0| 03 76 22 20 6d 32 2d 76 | 61 72 20 22 03 77 22 20 |.v" m2-v|ar ".w" |
|000006f0| 6d 32 2d 77 68 69 6c 65 | 20 22 03 78 22 20 6d 32 |m2-while| ".x" m2|
|00000700| 2d 65 78 70 6f 72 74 20 | 22 03 79 22 20 6d 32 2d |-export |".y" m2-|
|00000710| 69 6d 70 6f 72 74 20 22 | 03 7b 22 20 6d 32 2d 62 |import "|.{" m2-b|
|00000720| 65 67 69 6e 2d 63 6f 6d | 6d 65 6e 74 20 22 03 7d |egin-com|ment ".}|
|00000730| 22 20 6d 32 2d 65 6e 64 | 2d 63 6f 6d 6d 65 6e 74 |" m2-end|-comment|
|00000740| 20 22 5c 6e 22 20 6d 32 | 2d 6e 65 77 6c 69 6e 65 | "\n" m2|-newline|
|00000750| 20 22 03 1a 22 20 73 75 | 73 70 65 6e 64 2d 65 6d | ".." su|spend-em|
|00000760| 61 63 73 20 22 03 16 22 | 20 6d 32 2d 76 69 73 69 |acs ".."| m2-visi|
|00000770| 74 20 22 03 14 22 20 6d | 32 2d 74 6f 67 67 6c 65 |t ".." m|2-toggle|
|00000780| 20 22 03 0c 22 20 6d 32 | 2d 6c 69 6e 6b 20 22 03 | ".." m2|-link ".|
|00000790| 03 22 20 6d 32 2d 63 6f | 6d 70 69 6c 65 5d 20 34 |." m2-co|mpile] 4|
|000007a0| 29 0a 23 40 35 35 20 2a | 54 68 69 73 20 76 61 72 |).#@55 *|This var|
|000007b0| 69 61 62 6c 65 20 67 69 | 76 65 73 20 74 68 65 20 |iable gi|ves the |
|000007c0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 69 6e 20 4d |indentat|ion in M|
|000007d0| 6f 64 75 6c 61 2d 32 2d | 4d 6f 64 65 1f 0a 28 64 |odula-2-|Mode..(d|
|000007e0| 65 66 76 61 72 20 6d 32 | 2d 69 6e 64 65 6e 74 20 |efvar m2|-indent |
|000007f0| 35 20 28 23 24 20 2e 20 | 2d 31 39 35 39 29 29 0a |5 (#$ . |-1959)).|
|00000800| 23 40 31 30 37 34 20 54 | 68 69 73 20 69 73 20 61 |#@1074 T|his is a|
|00000810| 20 6d 6f 64 65 20 69 6e | 74 65 6e 64 65 64 20 74 | mode in|tended t|
|00000820| 6f 20 73 75 70 70 6f 72 | 74 20 70 72 6f 67 72 61 |o suppor|t progra|
|00000830| 6d 20 64 65 76 65 6c 6f | 70 6d 65 6e 74 20 69 6e |m develo|pment in|
|00000840| 20 4d 6f 64 75 6c 61 2d | 32 2e 0a 41 6c 6c 20 63 | Modula-|2..All c|
|00000850| 6f 6e 74 72 6f 6c 20 63 | 6f 6e 73 74 72 75 63 74 |ontrol c|onstruct|
|00000860| 73 20 6f 66 20 4d 6f 64 | 75 6c 61 2d 32 20 63 61 |s of Mod|ula-2 ca|
|00000870| 6e 20 62 65 20 72 65 61 | 63 68 65 64 20 62 79 20 |n be rea|ched by |
|00000880| 74 79 70 69 6e 67 20 43 | 2d 63 0a 66 6f 6c 6c 6f |typing C|-c.follo|
|00000890| 77 65 64 20 62 79 20 74 | 68 65 20 66 69 72 73 74 |wed by t|he first|
|000008a0| 20 63 68 61 72 61 63 74 | 65 72 20 6f 66 20 74 68 | charact|er of th|
|000008b0| 65 20 63 6f 6e 73 74 72 | 75 63 74 2e 0a 5c 3c 6d |e constr|uct..\<m|
|000008c0| 32 2d 6d 6f 64 65 2d 6d | 61 70 3e 0a 20 20 5c 5b |2-mode-m|ap>. \[|
|000008d0| 6d 32 2d 62 65 67 69 6e | 5d 20 62 65 67 69 6e 20 |m2-begin|] begin |
|000008e0| 20 20 20 20 20 20 20 20 | 5c 5b 6d 32 2d 63 61 73 | |\[m2-cas|
|000008f0| 65 5d 20 63 61 73 65 0a | 20 20 5c 5b 6d 32 2d 64 |e] case.| \[m2-d|
|00000900| 65 66 69 6e 69 74 69 6f | 6e 5d 20 64 65 66 69 6e |efinitio|n] defin|
|00000910| 69 74 69 6f 6e 20 20 20 | 20 5c 5b 6d 32 2d 65 6c |ition | \[m2-el|
|00000920| 73 65 5d 20 65 6c 73 65 | 0a 20 20 5c 5b 6d 32 2d |se] else|. \[m2-|
|00000930| 66 6f 72 5d 20 66 6f 72 | 20 20 20 20 20 20 20 20 |for] for| |
|00000940| 20 20 20 5c 5b 6d 32 2d | 68 65 61 64 65 72 5d 20 | \[m2-|header] |
|00000950| 68 65 61 64 65 72 0a 20 | 20 5c 5b 6d 32 2d 69 66 |header. | \[m2-if|
|00000960| 5d 20 69 66 20 20 20 20 | 20 20 20 20 20 20 20 20 |] if | |
|00000970| 5c 5b 6d 32 2d 6d 6f 64 | 75 6c 65 5d 20 6d 6f 64 |\[m2-mod|ule] mod|
|00000980| 75 6c 65 0a 20 20 5c 5b | 6d 32 2d 6c 6f 6f 70 5d |ule. \[|m2-loop]|
|00000990| 20 6c 6f 6f 70 20 20 20 | 20 20 20 20 20 20 20 5c | loop | \|
|000009a0| 5b 6d 32 2d 6f 72 5d 20 | 6f 72 0a 20 20 5c 5b 6d |[m2-or] |or. \[m|
|000009b0| 32 2d 70 72 6f 63 65 64 | 75 72 65 5d 20 70 72 6f |2-proced|ure] pro|
|000009c0| 63 65 64 75 72 65 20 20 | 20 20 20 43 6f 6e 74 72 |cedure | Contr|
|000009d0| 6f 6c 2d 63 20 43 6f 6e | 74 72 6f 6c 2d 77 20 77 |ol-c Con|trol-w w|
|000009e0| 69 74 68 0a 20 20 5c 5b | 6d 32 2d 72 65 63 6f 72 |ith. \[|m2-recor|
|000009f0| 64 5d 20 72 65 63 6f 72 | 64 20 20 20 20 20 20 20 |d] recor|d |
|00000a00| 20 5c 5b 6d 32 2d 73 74 | 64 69 6f 5d 20 73 74 64 | \[m2-st|dio] std|
|00000a10| 69 6f 0a 20 20 5c 5b 6d | 32 2d 74 79 70 65 5d 20 |io. \[m|2-type] |
|00000a20| 74 79 70 65 20 20 20 20 | 20 20 20 20 20 20 5c 5b |type | \[|
|00000a30| 6d 32 2d 75 6e 74 69 6c | 5d 20 75 6e 74 69 6c 0a |m2-until|] until.|
|00000a40| 20 20 5c 5b 6d 32 2d 76 | 61 72 5d 20 76 61 72 20 | \[m2-v|ar] var |
|00000a50| 20 20 20 20 20 20 20 20 | 20 20 5c 5b 6d 32 2d 77 | | \[m2-w|
|00000a60| 68 69 6c 65 5d 20 77 68 | 69 6c 65 0a 20 20 5c 5b |hile] wh|ile. \[|
|00000a70| 6d 32 2d 65 78 70 6f 72 | 74 5d 20 65 78 70 6f 72 |m2-expor|t] expor|
|00000a80| 74 20 20 20 20 20 20 20 | 20 5c 5b 6d 32 2d 69 6d |t | \[m2-im|
|00000a90| 70 6f 72 74 5d 20 69 6d | 70 6f 72 74 0a 20 20 5c |port] im|port. \|
|00000aa0| 5b 6d 32 2d 62 65 67 69 | 6e 2d 63 6f 6d 6d 65 6e |[m2-begi|n-commen|
|00000ab0| 74 5d 20 62 65 67 69 6e | 2d 63 6f 6d 6d 65 6e 74 |t] begin|-comment|
|00000ac0| 20 5c 5b 6d 32 2d 65 6e | 64 2d 63 6f 6d 6d 65 6e | \[m2-en|d-commen|
|00000ad0| 74 5d 20 65 6e 64 2d 63 | 6f 6d 6d 65 6e 74 0a 20 |t] end-c|omment. |
|00000ae0| 20 5c 5b 73 75 73 70 65 | 6e 64 2d 65 6d 61 63 73 | \[suspe|nd-emacs|
|00000af0| 5d 20 73 75 73 70 65 6e | 64 20 45 6d 61 63 73 20 |] suspen|d Emacs |
|00000b00| 20 20 20 20 5c 5b 6d 32 | 2d 74 6f 67 67 6c 65 5d | \[m2|-toggle]|
|00000b10| 20 74 6f 67 67 6c 65 0a | 20 20 5c 5b 6d 32 2d 63 | toggle.| \[m2-c|
|00000b20| 6f 6d 70 69 6c 65 5d 20 | 63 6f 6d 70 69 6c 65 20 |ompile] |compile |
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 5c 5b 6d 32 2d 6e | | \[m2-n|
|00000b40| 65 78 74 2d 65 72 72 6f | 72 5d 20 6e 65 78 74 2d |ext-erro|r] next-|
|00000b50| 65 72 72 6f 72 0a 20 20 | 5c 5b 6d 32 2d 6c 69 6e |error. |\[m2-lin|
|00000b60| 6b 5d 20 6c 69 6e 6b 0a | 0a 20 20 20 60 6d 32 2d |k] link.|. `m2-|
|00000b70| 69 6e 64 65 6e 74 27 20 | 63 6f 6e 74 72 6f 6c 73 |indent' |controls|
|00000b80| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 73 | the num|ber of s|
|00000b90| 70 61 63 65 73 20 66 6f | 72 20 65 61 63 68 20 69 |paces fo|r each i|
|00000ba0| 6e 64 65 6e 74 61 74 69 | 6f 6e 2e 0a 20 20 20 60 |ndentati|on.. `|
|00000bb0| 6d 32 2d 63 6f 6d 70 69 | 6c 65 2d 63 6f 6d 6d 61 |m2-compi|le-comma|
|00000bc0| 6e 64 27 20 68 6f 6c 64 | 73 20 74 68 65 20 63 6f |nd' hold|s the co|
|00000bd0| 6d 6d 61 6e 64 20 74 6f | 20 63 6f 6d 70 69 6c 65 |mmand to| compile|
|00000be0| 20 61 20 4d 6f 64 75 6c | 61 2d 32 20 70 72 6f 67 | a Modul|a-2 prog|
|00000bf0| 72 61 6d 2e 0a 20 20 20 | 60 6d 32 2d 6c 69 6e 6b |ram.. |`m2-link|
|00000c00| 2d 63 6f 6d 6d 61 6e 64 | 27 20 68 6f 6c 64 73 20 |-command|' holds |
|00000c10| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 74 6f 20 6c |the comm|and to l|
|00000c20| 69 6e 6b 20 61 20 4d 6f | 64 75 6c 61 2d 32 20 70 |ink a Mo|dula-2 p|
|00000c30| 72 6f 67 72 61 6d 2e 1f | 0a 28 64 65 66 61 6c 69 |rogram..|.(defali|
|00000c40| 61 73 20 27 6d 6f 64 75 | 6c 61 2d 32 2d 6d 6f 64 |as 'modu|la-2-mod|
|00000c50| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 5c 6e 21 |e #[nil |". ..\n!|
|00000c60| 88 c3 14 c5 16 06 c7 c8 | 21 88 c9 16 08 c7 ca 21 |........|!......!|
|00000c70| 88 cb 16 5c 6e cc 0e 0d | 21 88 c7 ce 21 88 cf 0e |...\n...|!...!...|
|00000c80| 10 50 16 0e c7 d1 21 88 | 0e 0e 16 11 c7 d2 21 88 |.P....!.|......!.|
|00000c90| d3 16 12 c7 d4 21 88 d3 | 16 14 c7 d5 21 88 d6 16 |.....!..|....!...|
|00000ca0| 15 c7 d7 21 88 d8 16 17 | c7 c8 21 88 c9 16 08 c7 |...!....|..!.....|
|00000cb0| d9 21 88 da 16 19 c7 db | 21 88 dc 16 1b c7 dd 21 |.!......|!......!|
|00000cc0| 88 d3 16 1d de df 21 87 | 22 20 5b 6b 69 6c 6c 2d |......!.|" [kill-|
|00000cd0| 61 6c 6c 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |all-loca|l-variab|
|00000ce0| 6c 65 73 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |les use-|local-ma|
|00000cf0| 70 20 6d 32 2d 6d 6f 64 | 65 2d 6d 61 70 20 6d 6f |p m2-mod|e-map mo|
|00000d00| 64 75 6c 61 2d 32 2d 6d | 6f 64 65 20 6d 61 6a 6f |dula-2-m|ode majo|
|00000d10| 72 2d 6d 6f 64 65 20 22 | 4d 6f 64 75 6c 61 2d 32 |r-mode "|Modula-2|
|00000d20| 22 20 6d 6f 64 65 2d 6e | 61 6d 65 20 6d 61 6b 65 |" mode-n|ame make|
|00000d30| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00000d40| 63 6f 6d 6d 65 6e 74 2d | 63 6f 6c 75 6d 6e 20 34 |comment-|column 4|
|00000d50| 31 20 65 6e 64 2d 63 6f | 6d 6d 65 6e 74 2d 63 6f |1 end-co|mment-co|
|00000d60| 6c 75 6d 6e 20 37 35 20 | 73 65 74 2d 73 79 6e 74 |lumn 75 |set-synt|
|00000d70| 61 78 2d 74 61 62 6c 65 | 20 6d 32 2d 6d 6f 64 65 |ax-table| m2-mode|
|00000d80| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 70 61 |-syntax-|table pa|
|00000d90| 72 61 67 72 61 70 68 2d | 73 74 61 72 74 20 22 24 |ragraph-|start "$|
|00000da0| 5c 5c 7c 22 20 70 61 67 | 65 2d 64 65 6c 69 6d 69 |\\|" pag|e-delimi|
|00000db0| 74 65 72 20 70 61 72 61 | 67 72 61 70 68 2d 73 65 |ter para|graph-se|
|00000dc0| 70 61 72 61 74 65 20 70 | 61 72 61 67 72 61 70 68 |parate p|aragraph|
|00000dd0| 2d 69 67 6e 6f 72 65 2d | 66 69 6c 6c 2d 70 72 65 |-ignore-|fill-pre|
|00000de0| 66 69 78 20 74 20 72 65 | 71 75 69 72 65 2d 66 69 |fix t re|quire-fi|
|00000df0| 6e 61 6c 2d 6e 65 77 6c | 69 6e 65 20 63 6f 6d 6d |nal-newl|ine comm|
|00000e00| 65 6e 74 2d 73 74 61 72 | 74 20 22 28 2a 20 22 20 |ent-star|t "(* " |
|00000e10| 63 6f 6d 6d 65 6e 74 2d | 65 6e 64 20 22 20 2a 29 |comment-|end " *)|
|00000e20| 22 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 2d |" commen|t-start-|
|00000e30| 73 6b 69 70 20 22 2f 5c | 5c 2a 2b 20 2a 22 20 63 |skip "/\|\*+ *" c|
|00000e40| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 2d 66 75 |omment-i|ndent-fu|
|00000e50| 6e 63 74 69 6f 6e 20 63 | 2d 63 6f 6d 6d 65 6e 74 |nction c|-comment|
|00000e60| 2d 69 6e 64 65 6e 74 20 | 70 61 72 73 65 2d 73 65 |-indent |parse-se|
|00000e70| 78 70 2d 69 67 6e 6f 72 | 65 2d 63 6f 6d 6d 65 6e |xp-ignor|e-commen|
|00000e80| 74 73 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 6d 32 2d |ts run-h|ooks m2-|
|00000e90| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 32 20 28 23 24 |mode-hoo|k] 2 (#$|
|00000ea0| 20 2e 20 32 30 35 35 29 | 20 6e 69 6c 5d 29 0a 23 | . 2055)| nil]).#|
|00000eb0| 40 36 34 20 49 6e 73 65 | 72 74 20 61 20 6e 65 77 |@64 Inse|rt a new|
|00000ec0| 6c 69 6e 65 20 61 6e 64 | 20 69 6e 64 65 6e 74 20 |line and| indent |
|00000ed0| 66 6f 6c 6c 6f 77 69 6e | 67 20 6c 69 6e 65 20 6c |followin|g line l|
|00000ee0| 69 6b 65 20 70 72 65 76 | 69 6f 75 73 20 6c 69 6e |ike prev|ious lin|
|00000ef0| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |e...(def|alias 'm|
|00000f00| 32 2d 6e 65 77 6c 69 6e | 65 20 23 5b 6e 69 6c 20 |2-newlin|e #[nil |
|00000f10| 22 c0 20 19 c2 20 88 09 | 6a 29 87 22 20 5b 63 75 |". .. ..|j)." [cu|
|00000f20| 72 72 65 6e 74 2d 69 6e | 64 65 6e 74 61 74 69 6f |rrent-in|dentatio|
|00000f30| 6e 20 68 70 6f 73 20 6e | 65 77 6c 69 6e 65 5d 20 |n hpos n|ewline] |
|00000f40| 31 20 28 23 24 20 2e 20 | 33 37 36 34 29 20 6e 69 |1 (#$ . |3764) ni|
|00000f50| 6c 5d 29 0a 23 40 32 36 | 20 49 6e 64 65 6e 74 20 |l]).#@26| Indent |
|00000f60| 74 6f 20 6e 65 78 74 20 | 74 61 62 20 73 74 6f 70 |to next |tab stop|
|00000f70| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 32 |...(defa|lias 'm2|
|00000f80| 2d 74 61 62 20 23 5b 6e | 69 6c 20 22 c0 20 09 a5 |-tab #[n|il ". ..|
|00000f90| 54 09 5f 6a 87 22 20 5b | 63 75 72 72 65 6e 74 2d |T._j." [|current-|
|00000fa0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 6d 32 2d 69 |indentat|ion m2-i|
|00000fb0| 6e 64 65 6e 74 5d 20 32 | 20 28 23 24 20 2e 20 33 |ndent] 2| (#$ . 3|
|00000fc0| 39 32 39 29 20 6e 69 6c | 5d 29 0a 23 40 35 34 20 |929) nil|]).#@54 |
|00000fd0| 49 6e 73 65 72 74 20 61 | 20 42 45 47 49 4e 20 6b |Insert a| BEGIN k|
|00000fe0| 65 79 77 6f 72 64 20 61 | 6e 64 20 69 6e 64 65 6e |eyword a|nd inden|
|00000ff0| 74 20 66 6f 72 20 74 68 | 65 20 6e 65 78 74 20 6c |t for th|e next l|
|00001000| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|00001010| 27 6d 32 2d 62 65 67 69 | 6e 20 23 5b 6e 69 6c 20 |'m2-begi|n #[nil |
|00001020| 22 c0 63 88 c1 20 88 c2 | 20 87 22 20 5b 22 42 45 |".c.. ..| ." ["BE|
|00001030| 47 49 4e 22 20 6d 32 2d | 6e 65 77 6c 69 6e 65 20 |GIN" m2-|newline |
|00001040| 6d 32 2d 74 61 62 5d 20 | 31 20 28 23 24 20 2e 20 |m2-tab] |1 (#$ . |
|00001050| 34 30 34 38 29 20 6e 69 | 6c 5d 29 0a 23 40 36 34 |4048) ni|l]).#@64|
|00001060| 20 42 75 69 6c 64 20 73 | 6b 65 6c 65 74 6f 6e 20 | Build s|keleton |
|00001070| 43 41 53 45 20 73 74 61 | 74 65 6d 65 6e 74 2c 20 |CASE sta|tement, |
|00001080| 70 72 6f 6d 70 74 69 6e | 67 20 66 6f 72 20 74 68 |promptin|g for th|
|00001090| 65 20 3c 65 78 70 72 65 | 73 73 69 6f 6e 3e 2e 1f |e <expre|ssion>..|
|000010a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 32 2d 63 |.(defali|as 'm2-c|
|000010b0| 61 73 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 1a c3 |ase #[ni|l "..!..|
|000010c0| 5c 6e c4 b1 03 88 c5 20 | 88 c5 20 88 c6 5c 6e c7 |\n..... |.. ..\n.|
|000010d0| b1 03 88 29 c8 7f 88 c9 | 20 87 22 20 5b 72 65 61 |...)....| ." [rea|
|000010e0| 64 2d 73 74 72 69 6e 67 | 20 22 43 61 73 65 2d 45 |d-string| "Case-E|
|000010f0| 78 70 72 65 73 73 69 6f | 6e 3a 20 22 20 6e 61 6d |xpressio|n: " nam|
|00001100| 65 20 22 43 41 53 45 20 | 22 20 22 20 4f 46 22 20 |e "CASE |" " OF" |
|00001110| 6d 32 2d 6e 65 77 6c 69 | 6e 65 20 22 45 4e 44 20 |m2-newli|ne "END |
|00001120| 28 2a 20 63 61 73 65 20 | 22 20 22 20 2a 29 3b 22 |(* case |" " *);"|
|00001130| 20 30 20 6d 32 2d 74 61 | 62 5d 20 33 20 28 23 24 | 0 m2-ta|b] 3 (#$|
|00001140| 20 2e 20 34 31 39 33 29 | 20 6e 69 6c 5d 29 0a 23 | . 4193)| nil]).#|
|00001150| 40 36 38 20 42 75 69 6c | 64 20 73 6b 65 6c 65 74 |@68 Buil|d skelet|
|00001160| 6f 6e 20 44 45 46 49 4e | 49 54 49 4f 4e 20 4d 4f |on DEFIN|ITION MO|
|00001170| 44 55 4c 45 2c 20 70 72 | 6f 6d 70 74 69 6e 67 20 |DULE, pr|ompting |
|00001180| 66 6f 72 20 74 68 65 20 | 3c 6d 6f 64 75 6c 65 20 |for the |<module |
|00001190| 6e 61 6d 65 3e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |name>...|(defalia|
|000011a0| 73 20 27 6d 32 2d 64 65 | 66 69 6e 69 74 69 6f 6e |s 'm2-de|finition|
|000011b0| 20 23 5b 6e 69 6c 20 22 | c0 63 88 c1 c2 21 89 1b | #[nil "|.c...!..|
|000011c0| c4 0b c5 b1 04 88 29 c6 | c7 21 87 22 20 5b 22 44 |......).|.!." ["D|
|000011d0| 45 46 49 4e 49 54 49 4f | 4e 20 4d 4f 44 55 4c 45 |EFINITIO|N MODULE|
|000011e0| 20 22 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 22 | " read-|string "|
|000011f0| 4e 61 6d 65 3a 20 22 20 | 6e 61 6d 65 20 22 3b 5c |Name: " |name ";\|
|00001200| 6e 5c 6e 5c 6e 5c 6e 45 | 4e 44 20 22 20 22 2e 5c |n\n\n\nE|ND " ".\|
|00001210| 6e 22 20 70 72 65 76 69 | 6f 75 73 2d 6c 69 6e 65 |n" previ|ous-line|
|00001220| 20 33 5d 20 35 20 28 23 | 24 20 2e 20 34 34 33 36 | 3] 5 (#|$ . 4436|
|00001230| 29 20 6e 69 6c 5d 29 0a | 23 40 34 37 20 49 6e 73 |) nil]).|#@47 Ins|
|00001240| 65 72 74 20 45 4c 53 45 | 20 6b 65 79 77 6f 72 64 |ert ELSE| keyword|
|00001250| 20 61 6e 64 20 69 6e 64 | 65 6e 74 20 66 6f 72 20 | and ind|ent for |
|00001260| 6e 65 78 74 20 6c 69 6e | 65 2e 1f 0a 28 64 65 66 |next lin|e...(def|
|00001270| 61 6c 69 61 73 20 27 6d | 32 2d 65 6c 73 65 20 23 |alias 'm|2-else #|
|00001280| 5b 6e 69 6c 20 22 c0 20 | 88 c1 5c 6e c3 5c 22 88 |[nil ". |..\n.\".|
|00001290| c4 63 88 c0 20 88 c5 20 | 87 22 20 5b 6d 32 2d 6e |.c.. .. |." [m2-n|
|000012a0| 65 77 6c 69 6e 65 20 62 | 61 63 6b 77 61 72 64 2d |ewline b|ackward-|
|000012b0| 64 65 6c 65 74 65 2d 63 | 68 61 72 2d 75 6e 74 61 |delete-c|har-unta|
|000012c0| 62 69 66 79 20 6d 32 2d | 69 6e 64 65 6e 74 20 6e |bify m2-|indent n|
|000012d0| 69 6c 20 22 45 4c 53 45 | 22 20 6d 32 2d 74 61 62 |il "ELSE|" m2-tab|
|000012e0| 5d 20 33 20 28 23 24 20 | 2e 20 34 36 36 39 29 20 |] 3 (#$ |. 4669) |
|000012f0| 6e 69 6c 5d 29 0a 23 40 | 37 31 20 42 75 69 6c 64 |nil]).#@|71 Build|
|00001300| 20 73 6b 65 6c 65 74 6f | 6e 20 46 4f 52 20 6c 6f | skeleto|n FOR lo|
|00001310| 6f 70 20 73 74 61 74 65 | 6d 65 6e 74 2c 20 70 72 |op state|ment, pr|
|00001320| 6f 6d 70 74 69 6e 67 20 | 66 6f 72 20 74 68 65 20 |ompting |for the |
|00001330| 6c 6f 6f 70 20 70 61 72 | 61 6d 65 74 65 72 73 2e |loop par|ameters.|
|00001340| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 32 2d |..(defal|ias 'm2-|
|00001350| 66 6f 72 20 23 5b 6e 69 | 6c 20 22 c0 63 88 c1 c2 |for #[ni|l ".c...|
|00001360| 21 c3 89 1c 1d 89 1e 06 | c7 b1 02 88 c1 c8 21 89 |!.......|......!.|
|00001370| 15 63 88 c1 c9 21 89 14 | ca 98 ac 85 cb 0c b1 02 |.c...!..|........|
|00001380| 88 cc 63 88 cd 20 88 cd | 20 88 ce 0e 06 cf 0d d0 |..c.. ..| .......|
|00001390| b1 05 88 2b d1 7f 88 d2 | 20 87 22 20 5b 22 46 4f |...+....| ." ["FO|
|000013a0| 52 20 22 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |R " read|-string |
|000013b0| 22 4c 6f 6f 70 20 49 6e | 69 74 69 61 6c 69 73 65 |"Loop In|itialise|
|000013c0| 72 3a 20 22 20 6e 69 6c | 20 62 79 20 6c 69 6d 69 |r: " nil| by limi|
|000013d0| 74 20 6e 61 6d 65 20 22 | 20 54 4f 20 22 20 22 4c |t name "| TO " "L|
|000013e0| 69 6d 69 74 3a 20 22 20 | 22 53 74 65 70 3a 20 22 |imit: " |"Step: "|
|000013f0| 20 22 22 20 22 20 42 59 | 20 22 20 22 20 44 4f 22 | "" " BY| " " DO"|
|00001400| 20 6d 32 2d 6e 65 77 6c | 69 6e 65 20 22 45 4e 44 | m2-newl|ine "END|
|00001410| 20 28 2a 20 66 6f 72 20 | 22 20 22 20 74 6f 20 22 | (* for |" " to "|
|00001420| 20 22 20 2a 29 3b 22 20 | 30 20 6d 32 2d 74 61 62 | " *);" |0 m2-tab|
|00001430| 5d 20 36 20 28 23 24 20 | 2e 20 34 38 35 39 29 20 |] 6 (#$ |. 4859) |
|00001440| 6e 69 6c 5d 29 0a 23 40 | 36 36 20 49 6e 73 65 72 |nil]).#@|66 Inser|
|00001450| 74 20 61 20 63 6f 6d 6d | 65 6e 74 20 62 6c 6f 63 |t a comm|ent bloc|
|00001460| 6b 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 74 68 65 |k contai|ning the|
|00001470| 20 6d 6f 64 75 6c 65 20 | 74 69 74 6c 65 2c 20 61 | module |title, a|
|00001480| 75 74 68 6f 72 2c 20 65 | 74 63 2e 1f 0a 28 64 65 |uthor, e|tc...(de|
|00001490| 66 61 6c 69 61 73 20 27 | 6d 32 2d 68 65 61 64 65 |falias '|m2-heade|
|000014a0| 72 20 23 5b 6e 69 6c 20 | 22 c0 63 88 c1 c2 21 63 |r #[nil |".c...!c|
|000014b0| 88 c3 63 88 c4 20 63 88 | c5 63 88 c6 20 63 88 c7 |..c.. c.|.c.. c..|
|000014c0| c8 20 c9 ca 20 cb b0 05 | 63 88 cc 63 87 22 20 5b |. .. ...|c..c." [|
|000014d0| 22 28 2a 5c 6e 20 20 20 | 20 54 69 74 6c 65 3a 20 |"(*\n | Title: |
|000014e0| 09 22 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 22 |." read-|string "|
|000014f0| 54 69 74 6c 65 3a 20 22 | 20 22 5c 6e 20 20 20 20 |Title: "| "\n |
|00001500| 43 72 65 61 74 65 64 3a | 09 22 20 63 75 72 72 65 |Created:|." curre|
|00001510| 6e 74 2d 74 69 6d 65 2d | 73 74 72 69 6e 67 20 22 |nt-time-|string "|
|00001520| 5c 6e 20 20 20 20 41 75 | 74 68 6f 72 3a 20 09 22 |\n Au|thor: ."|
|00001530| 20 75 73 65 72 2d 66 75 | 6c 6c 2d 6e 61 6d 65 20 | user-fu|ll-name |
|00001540| 22 5c 6e 09 09 3c 22 20 | 75 73 65 72 2d 6c 6f 67 |"\n..<" |user-log|
|00001550| 69 6e 2d 6e 61 6d 65 20 | 22 40 22 20 73 79 73 74 |in-name |"@" syst|
|00001560| 65 6d 2d 6e 61 6d 65 20 | 22 3e 5c 6e 22 20 22 2a |em-name |">\n" "*|
|00001570| 29 5c 6e 5c 6e 22 5d 20 | 35 20 28 23 24 20 2e 20 |)\n\n"] |5 (#$ . |
|00001580| 35 31 39 35 29 20 6e 69 | 6c 5d 29 0a 23 40 36 37 |5195) ni|l]).#@67|
|00001590| 20 49 6e 73 65 72 74 20 | 73 6b 65 6c 65 74 6f 6e | Insert |skeleton|
|000015a0| 20 49 46 20 73 74 61 74 | 65 6d 65 6e 74 2c 20 70 | IF stat|ement, p|
|000015b0| 72 6f 6d 70 74 69 6e 67 | 20 66 6f 72 20 3c 62 6f |rompting| for <bo|
|000015c0| 6f 6c 65 61 6e 2d 65 78 | 70 72 65 73 73 69 6f 6e |olean-ex|pression|
|000015d0| 3e 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |>...(def|alias 'm|
|000015e0| 32 2d 69 66 20 23 5b 6e | 69 6c 20 22 c0 63 88 c1 |2-if #[n|il ".c..|
|000015f0| c2 21 89 1b c4 b1 02 88 | c5 20 88 c5 20 88 c6 0b |.!......|. .. ...|
|00001600| c7 b1 03 88 29 c8 7f 88 | c9 20 87 22 20 5b 22 49 |....)...|. ." ["I|
|00001610| 46 20 22 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |F " read|-string |
|00001620| 22 3c 62 6f 6f 6c 65 61 | 6e 2d 65 78 70 72 65 73 |"<boolea|n-expres|
|00001630| 73 69 6f 6e 3e 3a 20 22 | 20 74 68 65 63 6f 6e 64 |sion>: "| thecond|
|00001640| 69 74 69 6f 6e 20 22 20 | 54 48 45 4e 22 20 6d 32 |ition " |THEN" m2|
|00001650| 2d 6e 65 77 6c 69 6e 65 | 20 22 45 4e 44 20 28 2a |-newline| "END (*|
|00001660| 20 69 66 20 22 20 22 20 | 2a 29 3b 22 20 30 20 6d | if " " |*);" 0 m|
|00001670| 32 2d 74 61 62 5d 20 34 | 20 28 23 24 20 2e 20 35 |2-tab] 4| (#$ . 5|
|00001680| 35 32 31 29 20 6e 69 6c | 5d 29 0a 23 40 33 33 20 |521) nil|]).#@33 |
|00001690| 42 75 69 6c 64 20 73 6b | 65 6c 65 74 6f 6e 20 4c |Build sk|eleton L|
|000016a0| 4f 4f 50 20 28 77 69 74 | 68 20 45 4e 44 29 2e 1f |OOP (wit|h END)..|
|000016b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 32 2d 6c |.(defali|as 'm2-l|
|000016c0| 6f 6f 70 20 23 5b 6e 69 | 6c 20 22 c0 63 88 c1 20 |oop #[ni|l ".c.. |
|000016d0| 88 c1 20 88 c2 63 88 c3 | 7f 88 c4 20 87 22 20 5b |.. ..c..|... ." [|
|000016e0| 22 4c 4f 4f 50 22 20 6d | 32 2d 6e 65 77 6c 69 6e |"LOOP" m|2-newlin|
|000016f0| 65 20 22 45 4e 44 20 28 | 2a 20 6c 6f 6f 70 20 2a |e "END (|* loop *|
|00001700| 29 3b 22 20 30 20 6d 32 | 2d 74 61 62 5d 20 31 20 |);" 0 m2|-tab] 1 |
|00001710| 28 23 24 20 2e 20 35 37 | 37 36 29 20 6e 69 6c 5d |(#$ . 57|76) nil]|
|00001720| 29 0a 23 40 36 38 20 42 | 75 69 6c 64 20 73 6b 65 |).#@68 B|uild ske|
|00001730| 6c 65 74 6f 6e 20 49 4d | 50 4c 45 4d 45 4e 54 41 |leton IM|PLEMENTA|
|00001740| 54 49 4f 4e 20 4d 4f 44 | 55 4c 45 2c 20 70 72 6f |TION MOD|ULE, pro|
|00001750| 6d 70 74 69 6e 67 20 66 | 6f 72 20 3c 6d 6f 64 75 |mpting f|or <modu|
|00001760| 6c 65 2d 6e 61 6d 65 3e | 2e 1f 0a 28 64 65 66 61 |le-name>|...(defa|
|00001770| 6c 69 61 73 20 27 6d 32 | 2d 6d 6f 64 75 6c 65 20 |lias 'm2|-module |
|00001780| 23 5b 6e 69 6c 20 22 c0 | 63 88 c1 c2 21 89 1b c4 |#[nil ".|c...!...|
|00001790| 0b c5 b1 04 88 c6 c7 21 | 88 c8 20 88 c9 20 88 ca |.......!|.. .. ..|
|000017a0| 20 88 cb 20 88 ca 20 88 | cc 20 88 cd 20 88 ce 0b | .. .. .|. .. ...|
|000017b0| cf b1 03 88 29 d0 20 88 | ca 20 88 d1 20 87 22 20 |....). .|. .. ." |
|000017c0| 5b 22 49 4d 50 4c 45 4d | 45 4e 54 41 54 49 4f 4e |["IMPLEM|ENTATION|
|000017d0| 20 4d 4f 44 55 4c 45 20 | 22 20 72 65 61 64 2d 73 | MODULE |" read-s|
|000017e0| 74 72 69 6e 67 20 22 4e | 61 6d 65 3a 20 22 20 6e |tring "N|ame: " n|
|000017f0| 61 6d 65 20 22 3b 5c 6e | 5c 6e 5c 6e 5c 6e 45 4e |ame ";\n|\n\n\nEN|
|00001800| 44 20 22 20 22 2e 5c 6e | 22 20 70 72 65 76 69 6f |D " ".\n|" previo|
|00001810| 75 73 2d 6c 69 6e 65 20 | 33 20 6d 32 2d 68 65 61 |us-line |3 m2-hea|
|00001820| 64 65 72 20 6d 32 2d 74 | 79 70 65 20 6e 65 77 6c |der m2-t|ype newl|
|00001830| 69 6e 65 20 6d 32 2d 76 | 61 72 20 6d 32 2d 62 65 |ine m2-v|ar m2-be|
|00001840| 67 69 6e 20 6d 32 2d 62 | 65 67 69 6e 2d 63 6f 6d |gin m2-b|egin-com|
|00001850| 6d 65 6e 74 20 22 20 4d | 6f 64 75 6c 65 20 22 20 |ment " M|odule " |
|00001860| 22 20 49 6e 69 74 69 61 | 6c 69 73 61 74 69 6f 6e |" Initia|lisation|
|00001870| 20 43 6f 64 65 20 22 20 | 6d 32 2d 65 6e 64 2d 63 | Code " |m2-end-c|
|00001880| 6f 6d 6d 65 6e 74 20 6d | 32 2d 74 61 62 5d 20 35 |omment m|2-tab] 5|
|00001890| 20 28 23 24 20 2e 20 35 | 39 32 37 29 20 6e 69 6c | (#$ . 5|927) nil|
|000018a0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 32 |]).(defa|lias 'm2|
|000018b0| 2d 6f 72 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 5c |-or #[ni|l ". ..\|
|000018c0| 6e 21 88 c3 63 88 c0 20 | 88 c4 20 87 22 20 5b 6d |n!..c.. |.. ." [m|
|000018d0| 32 2d 6e 65 77 6c 69 6e | 65 20 62 61 63 6b 77 61 |2-newlin|e backwa|
|000018e0| 72 64 2d 64 65 6c 65 74 | 65 2d 63 68 61 72 2d 75 |rd-delet|e-char-u|
|000018f0| 6e 74 61 62 69 66 79 20 | 6d 32 2d 69 6e 64 65 6e |ntabify |m2-inden|
|00001900| 74 20 22 7c 22 20 6d 32 | 2d 74 61 62 5d 20 32 20 |t "|" m2|-tab] 2 |
|00001910| 6e 69 6c 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |nil nil]|).(defal|
|00001920| 69 61 73 20 27 6d 32 2d | 70 72 6f 63 65 64 75 72 |ias 'm2-|procedur|
|00001930| 65 20 23 5b 6e 69 6c 20 | 22 c0 63 88 c1 c2 21 c3 |e #[nil |".c...!.|
|00001940| 1c 89 1d c6 b1 02 88 c1 | c7 21 c8 b1 02 88 c1 c9 |........|.!......|
|00001950| 21 89 14 ca 98 ac 85 cb | 0c b1 02 88 cc 63 88 cd |!.......|.....c..|
|00001960| 20 88 ce 63 88 cd 20 88 | cd 20 88 cf 63 88 0d 63 | ..c.. .|. ..c..c|
|00001970| 88 cc 63 88 d0 7f 88 d1 | 20 2a 87 22 20 5b 22 50 |..c.....| *." ["P|
|00001980| 52 4f 43 45 44 55 52 45 | 20 22 20 72 65 61 64 2d |ROCEDURE| " read-|
|00001990| 73 74 72 69 6e 67 20 22 | 4e 61 6d 65 3a 20 22 20 |string "|Name: " |
|000019a0| 6e 69 6c 20 61 72 67 73 | 20 6e 61 6d 65 20 22 20 |nil args| name " |
|000019b0| 28 22 20 22 41 72 67 75 | 6d 65 6e 74 73 3a 20 22 |(" "Argu|ments: "|
|000019c0| 20 22 29 22 20 22 52 65 | 73 75 6c 74 20 54 79 70 | ")" "Re|sult Typ|
|000019d0| 65 3a 20 22 20 22 22 20 | 22 20 3a 20 22 20 22 3b |e: " "" |" : " ";|
|000019e0| 22 20 6d 32 2d 6e 65 77 | 6c 69 6e 65 20 22 42 45 |" m2-new|line "BE|
|000019f0| 47 49 4e 22 20 22 45 4e | 44 20 22 20 30 20 6d 32 |GIN" "EN|D " 0 m2|
|00001a00| 2d 74 61 62 5d 20 33 20 | 6e 69 6c 20 6e 69 6c 5d |-tab] 3 |nil nil]|
|00001a10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 32 2d |).(defal|ias 'm2-|
|00001a20| 77 69 74 68 20 23 5b 6e | 69 6c 20 22 c0 63 88 c1 |with #[n|il ".c..|
|00001a30| c2 21 89 1b 63 88 c4 63 | 88 c5 20 88 c5 20 88 c6 |.!..c..c|.. .. ..|
|00001a40| 0b c7 b1 03 88 29 c8 7f | 88 c9 20 87 22 20 5b 22 |.....)..|.. ." ["|
|00001a50| 57 49 54 48 20 22 20 72 | 65 61 64 2d 73 74 72 69 |WITH " r|ead-stri|
|00001a60| 6e 67 20 22 52 65 63 6f | 72 64 2d 54 79 70 65 3a |ng "Reco|rd-Type:|
|00001a70| 20 22 20 6e 61 6d 65 20 | 22 20 44 4f 22 20 6d 32 | " name |" DO" m2|
|00001a80| 2d 6e 65 77 6c 69 6e 65 | 20 22 45 4e 44 20 28 2a |-newline| "END (*|
|00001a90| 20 77 69 74 68 20 22 20 | 22 20 2a 29 3b 22 20 30 | with " |" *);" 0|
|00001aa0| 20 6d 32 2d 74 61 62 5d | 20 34 20 6e 69 6c 20 6e | m2-tab]| 4 nil n|
|00001ab0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00001ac0| 6d 32 2d 72 65 63 6f 72 | 64 20 23 5b 6e 69 6c 20 |m2-recor|d #[nil |
|00001ad0| 22 c0 63 88 c1 20 88 c1 | 20 88 c2 63 88 c3 7f 88 |".c.. ..| ..c....|
|00001ae0| c4 20 87 22 20 5b 22 52 | 45 43 4f 52 44 22 20 6d |. ." ["R|ECORD" m|
|00001af0| 32 2d 6e 65 77 6c 69 6e | 65 20 22 45 4e 44 20 28 |2-newlin|e "END (|
|00001b00| 2a 20 72 65 63 6f 72 64 | 20 2a 29 3b 22 20 30 20 |* record| *);" 0 |
|00001b10| 6d 32 2d 74 61 62 5d 20 | 31 20 6e 69 6c 20 6e 69 |m2-tab] |1 nil ni|
|00001b20| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |l]).(def|alias 'm|
|00001b30| 32 2d 73 74 64 69 6f 20 | 23 5b 6e 69 6c 20 22 c0 |2-stdio |#[nil ".|
|00001b40| 63 87 22 20 5b 22 5c 6e | 46 52 4f 4d 20 54 65 78 |c." ["\n|FROM Tex|
|00001b50| 74 49 4f 20 49 4d 50 4f | 52 54 20 5c 6e 20 20 20 |tIO IMPO|RT \n |
|00001b60| 57 72 69 74 65 43 48 41 | 52 2c 20 52 65 61 64 43 |WriteCHA|R, ReadC|
|00001b70| 48 41 52 2c 20 57 72 69 | 74 65 49 4e 54 45 47 45 |HAR, Wri|teINTEGE|
|00001b80| 52 2c 20 52 65 61 64 49 | 4e 54 45 47 45 52 2c 5c |R, ReadI|NTEGER,\|
|00001b90| 6e 20 20 20 57 72 69 74 | 65 43 41 52 44 49 4e 41 |n Writ|eCARDINA|
|00001ba0| 4c 2c 20 52 65 61 64 43 | 41 52 44 49 4e 41 4c 2c |L, ReadC|ARDINAL,|
|00001bb0| 20 57 72 69 74 65 42 4f | 4f 4c 45 41 4e 2c 20 52 | WriteBO|OLEAN, R|
|00001bc0| 65 61 64 42 4f 4f 4c 45 | 41 4e 2c 5c 6e 20 20 20 |eadBOOLE|AN,\n |
|00001bd0| 57 72 69 74 65 52 45 41 | 4c 2c 20 52 65 61 64 52 |WriteREA|L, ReadR|
|00001be0| 45 41 4c 2c 20 57 72 69 | 74 65 42 49 54 53 45 54 |EAL, Wri|teBITSET|
|00001bf0| 2c 20 52 65 61 64 42 49 | 54 53 45 54 2c 5c 6e 20 |, ReadBI|TSET,\n |
|00001c00| 20 20 57 72 69 74 65 42 | 61 73 65 64 43 41 52 44 | WriteB|asedCARD|
|00001c10| 49 4e 41 4c 2c 20 52 65 | 61 64 42 61 73 65 64 43 |INAL, Re|adBasedC|
|00001c20| 41 52 44 49 4e 41 4c 2c | 20 57 72 69 74 65 43 68 |ARDINAL,| WriteCh|
|00001c30| 61 72 73 2c 20 52 65 61 | 64 43 68 61 72 73 2c 5c |ars, Rea|dChars,\|
|00001c40| 6e 20 20 20 57 72 69 74 | 65 53 74 72 69 6e 67 2c |n Writ|eString,|
|00001c50| 20 52 65 61 64 53 74 72 | 69 6e 67 2c 20 57 68 69 | ReadStr|ing, Whi|
|00001c60| 74 65 53 70 61 63 65 2c | 20 45 6e 64 4f 66 4c 69 |teSpace,| EndOfLi|
|00001c70| 6e 65 3b 5c 6e 5c 6e 46 | 52 4f 4d 20 53 79 73 53 |ne;\n\nF|ROM SysS|
|00001c80| 74 72 65 61 6d 73 20 49 | 4d 50 4f 52 54 20 73 79 |treams I|MPORT sy|
|00001c90| 73 49 6e 2c 20 73 79 73 | 4f 75 74 2c 20 73 79 73 |sIn, sys|Out, sys|
|00001ca0| 45 72 72 3b 5c 6e 5c 6e | 22 5d 20 31 20 6e 69 6c |Err;\n\n|"] 1 nil|
|00001cb0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00001cc0| 20 27 6d 32 2d 74 79 70 | 65 20 23 5b 6e 69 6c 20 | 'm2-typ|e #[nil |
|00001cd0| 22 c0 63 88 c1 20 88 c2 | 20 87 22 20 5b 22 54 59 |".c.. ..| ." ["TY|
|00001ce0| 50 45 22 20 6d 32 2d 6e | 65 77 6c 69 6e 65 20 6d |PE" m2-n|ewline m|
|00001cf0| 32 2d 74 61 62 5d 20 31 | 20 6e 69 6c 20 6e 69 6c |2-tab] 1| nil nil|
|00001d00| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 32 |]).(defa|lias 'm2|
|00001d10| 2d 75 6e 74 69 6c 20 23 | 5b 6e 69 6c 20 22 c0 63 |-until #|[nil ".c|
|00001d20| 88 c1 20 88 c1 20 88 c2 | 63 88 c3 c4 21 c5 b1 02 |.. .. ..|c...!...|
|00001d30| 88 c6 7f 88 c7 20 87 22 | 20 5b 22 52 45 50 45 41 |..... ."| ["REPEA|
|00001d40| 54 22 20 6d 32 2d 6e 65 | 77 6c 69 6e 65 20 22 55 |T" m2-ne|wline "U|
|00001d50| 4e 54 49 4c 20 22 20 72 | 65 61 64 2d 73 74 72 69 |NTIL " r|ead-stri|
|00001d60| 6e 67 20 22 3c 62 6f 6f | 6c 65 61 6e 2d 65 78 70 |ng "<boo|lean-exp|
|00001d70| 72 65 73 73 69 6f 6e 3e | 3a 20 22 20 22 3b 22 20 |ression>|: " ";" |
|00001d80| 30 20 6d 32 2d 74 61 62 | 5d 20 32 20 6e 69 6c 20 |0 m2-tab|] 2 nil |
|00001d90| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001da0| 27 6d 32 2d 76 61 72 20 | 23 5b 6e 69 6c 20 22 c0 |'m2-var |#[nil ".|
|00001db0| 20 88 c1 63 88 c0 20 88 | c2 20 87 22 20 5b 6d 32 | ..c.. .|. ." [m2|
|00001dc0| 2d 6e 65 77 6c 69 6e 65 | 20 22 56 41 52 22 20 6d |-newline| "VAR" m|
|00001dd0| 32 2d 74 61 62 5d 20 31 | 20 6e 69 6c 20 6e 69 6c |2-tab] 1| nil nil|
|00001de0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 32 |]).(defa|lias 'm2|
|00001df0| 2d 77 68 69 6c 65 20 23 | 5b 6e 69 6c 20 22 c0 63 |-while #|[nil ".c|
|00001e00| 88 c1 c2 21 89 1b c4 b1 | 02 88 c5 20 88 c5 20 88 |...!....|... .. .|
|00001e10| c6 0b c7 b1 03 88 29 c8 | 7f 88 c9 20 87 22 20 5b |......).|... ." [|
|00001e20| 22 57 48 49 4c 45 20 22 | 20 72 65 61 64 2d 73 74 |"WHILE "| read-st|
|00001e30| 72 69 6e 67 20 22 3c 62 | 6f 6f 6c 65 61 6e 2d 65 |ring "<b|oolean-e|
|00001e40| 78 70 72 65 73 73 69 6f | 6e 3e 3a 20 22 20 6e 61 |xpressio|n>: " na|
|00001e50| 6d 65 20 22 20 44 4f 22 | 20 6d 32 2d 6e 65 77 6c |me " DO"| m2-newl|
|00001e60| 69 6e 65 20 22 45 4e 44 | 20 28 2a 20 77 68 69 6c |ine "END| (* whil|
|00001e70| 65 20 22 20 22 20 2a 29 | 3b 22 20 30 20 6d 32 2d |e " " *)|;" 0 m2-|
|00001e80| 74 61 62 5d 20 34 20 6e | 69 6c 20 6e 69 6c 5d 29 |tab] 4 n|il nil])|
|00001e90| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 32 2d 65 |.(defali|as 'm2-e|
|00001ea0| 78 70 6f 72 74 20 23 5b | 6e 69 6c 20 22 c0 63 87 |xport #[|nil ".c.|
|00001eb0| 22 20 5b 22 45 58 50 4f | 52 54 20 51 55 41 4c 49 |" ["EXPO|RT QUALI|
|00001ec0| 46 49 45 44 20 22 5d 20 | 31 20 6e 69 6c 20 6e 69 |FIED "] |1 nil ni|
|00001ed0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |l]).(def|alias 'm|
|00001ee0| 32 2d 69 6d 70 6f 72 74 | 20 23 5b 6e 69 6c 20 22 |2-import| #[nil "|
|00001ef0| c0 63 88 c1 c2 21 63 88 | c3 63 87 22 20 5b 22 46 |.c...!c.|.c." ["F|
|00001f00| 52 4f 4d 20 22 20 72 65 | 61 64 2d 73 74 72 69 6e |ROM " re|ad-strin|
|00001f10| 67 20 22 4d 6f 64 75 6c | 65 3a 20 22 20 22 20 49 |g "Modul|e: " " I|
|00001f20| 4d 50 4f 52 54 20 22 5d | 20 32 20 6e 69 6c 20 6e |MPORT "]| 2 nil n|
|00001f30| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00001f40| 6d 32 2d 62 65 67 69 6e | 2d 63 6f 6d 6d 65 6e 74 |m2-begin|-comment|
|00001f50| 20 23 5b 6e 69 6c 20 22 | 6e ac 85 c0 09 c2 5c 22 | #[nil "|n.....\"|
|00001f60| 88 c3 63 87 22 20 5b 69 | 6e 64 65 6e 74 2d 74 6f |..c." [i|ndent-to|
|00001f70| 20 63 6f 6d 6d 65 6e 74 | 2d 63 6f 6c 75 6d 6e 20 | comment|-column |
|00001f80| 30 20 22 28 2a 20 20 22 | 5d 20 33 20 6e 69 6c 20 |0 "(* "|] 3 nil |
|00001f90| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001fa0| 27 6d 32 2d 65 6e 64 2d | 63 6f 6d 6d 65 6e 74 20 |'m2-end-|comment |
|00001fb0| 23 5b 6e 69 6c 20 22 6e | ac 83 08 6a 88 c1 63 87 |#[nil "n|...j..c.|
|00001fc0| 22 20 5b 65 6e 64 2d 63 | 6f 6d 6d 65 6e 74 2d 63 |" [end-c|omment-c|
|00001fd0| 6f 6c 75 6d 6e 20 22 2a | 29 22 5d 20 31 20 6e 69 |olumn "*|)"] 1 ni|
|00001fe0| 6c 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |l nil]).|(defalia|
|00001ff0| 73 20 27 6d 32 2d 63 6f | 6d 70 69 6c 65 20 23 5b |s 'm2-co|mpile #[|
|00002000| 6e 69 6c 20 22 c0 20 11 | c2 0b c4 09 51 21 87 22 |nil ". .|....Q!."|
|00002010| 20 5b 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 6d 6f | [buffer|-name mo|
|00002020| 64 75 6c 65 6e 61 6d 65 | 20 63 6f 6d 70 69 6c 65 |dulename| compile|
|00002030| 20 6d 32 2d 63 6f 6d 70 | 69 6c 65 2d 63 6f 6d 6d | m2-comp|ile-comm|
|00002040| 61 6e 64 20 22 20 22 5d | 20 34 20 6e 69 6c 20 6e |and " "]| 4 nil n|
|00002050| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00002060| 6d 32 2d 6c 69 6e 6b 20 | 23 5b 6e 69 6c 20 22 c0 |m2-link |#[nil ".|
|00002070| 20 11 5c 6e ab 87 c3 0c | c5 5c 6e 51 21 87 c3 0c | .\n....|.\nQ!...|
|00002080| c5 c6 c7 09 5c 22 89 12 | 51 21 87 22 20 5b 62 75 |....\"..|Q!." [bu|
|00002090| 66 66 65 72 2d 6e 61 6d | 65 20 6d 6f 64 75 6c 65 |ffer-nam|e module|
|000020a0| 6e 61 6d 65 20 6d 32 2d | 6c 69 6e 6b 2d 6e 61 6d |name m2-|link-nam|
|000020b0| 65 20 63 6f 6d 70 69 6c | 65 20 6d 32 2d 6c 69 6e |e compil|e m2-lin|
|000020c0| 6b 2d 63 6f 6d 6d 61 6e | 64 20 22 20 22 20 72 65 |k-comman|d " " re|
|000020d0| 61 64 2d 73 74 72 69 6e | 67 20 22 4e 61 6d 65 20 |ad-strin|g "Name |
|000020e0| 6f 66 20 65 78 65 63 75 | 74 61 62 6c 65 3a 20 22 |of execu|table: "|
|000020f0| 5d 20 36 20 6e 69 6c 20 | 6e 69 6c 5d 29 0a 28 64 |] 6 nil |nil]).(d|
|00002100| 65 66 61 6c 69 61 73 20 | 27 6d 32 2d 65 78 65 63 |efalias |'m2-exec|
|00002110| 75 74 65 2d 6d 6f 6e 69 | 74 6f 72 2d 63 6f 6d 6d |ute-moni|tor-comm|
|00002120| 61 6e 64 20 23 5b 28 63 | 6f 6d 6d 61 6e 64 29 20 |and #[(c|ommand) |
|00002130| 22 08 19 c2 09 21 c3 6b | 1c c5 09 c6 c7 89 c8 c9 |"....!.k|........|
|00002140| 0e 5c 6e 50 26 06 2a 87 | 22 20 5b 73 68 65 6c 6c |.\nP&.*.|" [shell|
|00002150| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 73 68 65 6c 6c |-file-na|me shell|
|00002160| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|00002170| 72 65 63 74 6f 72 79 20 | 22 63 73 68 22 20 63 73 |rectory |"csh" cs|
|00002180| 68 20 63 61 6c 6c 2d 70 | 72 6f 63 65 73 73 20 6e |h call-p|rocess n|
|00002190| 69 6c 20 74 20 22 2d 63 | 66 22 20 22 65 78 65 63 |il t "-c|f" "exec|
|000021a0| 20 22 20 63 6f 6d 6d 61 | 6e 64 5d 20 38 5d 29 0a | " comma|nd] 8]).|
|000021b0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 32 2d 76 69 |(defalia|s 'm2-vi|
|000021c0| 73 69 74 20 23 5b 6e 69 | 6c 20 22 c0 89 89 19 1a |sit #[ni|l ".....|
|000021d0| 1b 8a c4 c5 21 11 c6 c7 | 21 88 c8 c9 09 50 21 88 |....!...|!....P!.|
|000021e0| 65 62 88 c0 ca cb 8f 88 | c0 cc cd 8f 88 0b ac 88 |eb......|........|
|000021f0| 5c 6e ac 85 ce cf 09 5c | 22 88 29 0b ab 8e d0 0b |\n.....\|".).....|
|00002200| 21 88 5c 6e ad 8d 8a d0 | 5c 6e 21 29 aa 86 5c 6e |!.\n....|\n!)..\n|
|00002210| ad 83 d0 5c 6e 21 2b 87 | 22 20 5b 6e 69 6c 20 6d |...\n!+.|" [nil m|
|00002220| 6f 64 75 6c 65 6e 61 6d | 65 20 6d 6f 64 66 69 6c |odulenam|e modfil|
|00002230| 65 20 64 65 66 66 69 6c | 65 20 72 65 61 64 2d 73 |e deffil|e read-s|
|00002240| 74 72 69 6e 67 20 22 4d | 6f 64 75 6c 65 20 6e 61 |tring "M|odule na|
|00002250| 6d 65 3a 20 22 20 73 77 | 69 74 63 68 2d 74 6f 2d |me: " sw|itch-to-|
|00002260| 62 75 66 66 65 72 20 22 | 2a 43 6f 6d 6d 61 6e 64 |buffer "|*Command|
|00002270| 20 45 78 65 63 75 74 69 | 6f 6e 2a 22 20 6d 32 2d | Executi|on*" m2-|
|00002280| 65 78 65 63 75 74 65 2d | 6d 6f 6e 69 74 6f 72 2d |execute-|monitor-|
|00002290| 63 6f 6d 6d 61 6e 64 20 | 22 6d 32 77 68 65 72 65 |command |"m2where|
|000022a0| 69 73 20 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |is " (by|te-code |
|000022b0| 22 c0 c1 21 88 c2 94 c2 | 95 7b 13 c0 87 22 20 5b |"..!....|.{..." [|
|000022c0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|000022d0| 64 20 22 5c 5c 28 2e 2a | 5c 5c 2e 64 65 66 5c 5c |d "\\(.*|\\.def\\|
|000022e0| 29 20 2a 24 22 20 31 20 | 64 65 66 66 69 6c 65 5d |) *$" 1 |deffile]|
|000022f0| 20 32 29 20 28 28 73 65 | 61 72 63 68 2d 66 61 69 | 2) ((se|arch-fai|
|00002300| 6c 65 64 29 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |led)) (b|yte-code|
|00002310| 20 22 c0 c1 21 88 c2 94 | c2 95 7b 13 c0 87 22 20 | "..!...|..{..." |
|00002320| 5b 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |[re-sear|ch-forwa|
|00002330| 72 64 20 22 5c 5c 28 2e | 2a 5c 5c 2e 6d 6f 64 5c |rd "\\(.|*\\.mod\|
|00002340| 5c 29 20 2a 24 22 20 31 | 20 6d 6f 64 66 69 6c 65 |\) *$" 1| modfile|
|00002350| 5d 20 32 29 20 28 28 73 | 65 61 72 63 68 2d 66 61 |] 2) ((s|earch-fa|
|00002360| 69 6c 65 64 29 29 20 65 | 72 72 6f 72 20 22 49 20 |iled)) e|rror "I |
|00002370| 63 61 6e 20 66 69 6e 64 | 20 6e 65 69 74 68 65 72 |can find| neither|
|00002380| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 6e 6f 72 20 | definit|ion nor |
|00002390| 69 6d 70 6c 65 6d 65 6e | 74 61 74 69 6f 6e 20 6f |implemen|tation o|
|000023a0| 66 20 25 73 22 20 66 69 | 6e 64 2d 66 69 6c 65 5d |f %s" fi|nd-file]|
|000023b0| 20 33 20 6e 69 6c 20 6e | 69 6c 5d 29 0a 23 40 35 | 3 nil n|il]).#@5|
|000023c0| 32 20 54 6f 67 67 6c 65 | 20 62 65 74 77 65 65 6e |2 Toggle| between|
|000023d0| 20 2e 6d 6f 64 20 61 6e | 64 20 2e 64 65 66 20 66 | .mod an|d .def f|
|000023e0| 69 6c 65 73 20 66 6f 72 | 20 74 68 65 20 6d 6f 64 |iles for| the mod|
|000023f0| 75 6c 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ule...(d|efalias |
|00002400| 27 6d 32 2d 74 6f 67 67 | 6c 65 20 23 5b 6e 69 6c |'m2-togg|le #[nil|
|00002410| 20 22 c0 20 c1 c2 4f c3 | 98 ab 8a c4 c0 20 c5 c1 | ". ..O.|..... ..|
|00002420| 4f c6 50 21 87 c0 20 c1 | c2 4f c6 98 ab 8a c4 c0 |O.P!.. .|.O......|
|00002430| 20 c5 c1 4f c3 50 21 87 | c0 20 c7 c2 4f c8 98 ab | ..O.P!.|. ..O...|
|00002440| 8a c4 c0 20 c5 c7 4f c9 | 50 21 87 c0 20 c7 c2 4f |... ..O.|P!.. ..O|
|00002450| c9 98 ad 89 c4 c0 20 c5 | c7 4f c8 50 21 87 22 20 |...... .|.O.P!." |
|00002460| 5b 62 75 66 66 65 72 2d | 6e 61 6d 65 20 2d 34 20 |[buffer-|name -4 |
|00002470| 6e 69 6c 20 22 2e 64 65 | 66 22 20 66 69 6e 64 2d |nil ".de|f" find-|
|00002480| 66 69 6c 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |file-oth|er-windo|
|00002490| 77 20 30 20 22 2e 6d 6f | 64 22 20 2d 33 20 22 2e |w 0 ".mo|d" -3 ".|
|000024a0| 6d 69 22 20 22 2e 6d 64 | 22 5d 20 34 20 28 23 24 |mi" ".md|"] 4 (#$|
|000024b0| 20 2e 20 39 31 35 34 29 | 20 6e 69 6c 5d 29 0a | . 9154)| nil]). |
+--------+-------------------------+-------------------------+--------+--------+
